#!/usr/bin/perl

use strict;
my @fileList = <*>;
foreach my $entry (@fileList) {
  my $lcEntry = lc($entry);
  if ( "$entry" ne "$lcEntry" ) {
    print("moving $entry to $lcEntry\n");
    system(" mv $entry $lcEntry");
  }
}
